home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NBT1
/
DMO
/
MAKETBOX.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
3KB
|
53 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME MAKETBOX.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NBT1.INC"
COLOR 7, 0, 0
CLS
? "┌────────────────────────────────────────────────────────────────────────────
? "│ MakeTBox ( Row?,Col?,Rows?,Cols?,Brdr%,Battr?,Shdo?,Sattr?,Tpos?,Title$ )
? "│ fMakeTBox$( Row?,Col?,Rows?,Cols?,Brdr%,Battr?,Shdo?,Sattr?,Tpos?,Title$ )
? "├────────────────────────────────────────────────────────────────────────────
? "│ The difference between the routine and the function is that the function
? "│ computes the screen area to be saved, calls fTBoxREAD$, returns a string
? "│ holding the data below the new box, then calls MakeTBox to do the actual
? "│ work. MakeTBox is a simple call to TBoxDRAW and DrawTShadow but adds the
? "│ ability to print a box 'title' in any one of 8 positions. The shadow and
? "│ title are optional features.
? "└────────────────────────────────────────────────────────────────────────────
'┌──────────────────
TBoxFILL 13, 1, 13, 80, 176, 112 '│screen full of ░'s
FOR Brdr% = 1 TO 11 '│11 different brdrs
T$ = USING$( "BORDER _###", Brdr% ) '│the TITLE
FOR Tpos? = 1 TO 8 STEP 4 '│ 8 title positions
MakeTBox 15, 1,8,18,Brdr%,31,1,8,Tpos?,T$ '│ do it!
MakeTBox 15,21,8,18,Brdr%,31,1,8,Tpos?+1,T$ '│ do it!
MakeTBox 15,41,8,18,Brdr%,31,1,8,Tpos?+2,T$ '│ do it!
MakeTBox 15,61,8,18,Brdr%,31,1,8,Tpos?+3,T$ '│ do it!
IF fAnyKey% = 27 THEN EXIT, EXIT '│ <THUMP A BUTTON>
NEXT '│
NEXT '│
'│
TBoxFILL 13, 1, 13, 80, 32, 112 '│ ALL DONE
T$ = "qThank you!" '│ but, how about a
SaveScrn$ = fMakeTBox$(23,66,3,14,1,127,61,120,4,T$) '│ quick 1 line
fAnyKey '│ message box?
TBoxWRITE SaveScrn$ '│ restore the scrn
'└──────────────────